home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / System-Boost / Workbench / Archive / ViewDiz / NewModules / lzx < prev    next >
AmigaDOS Script File  |  1998-11-08  |  2KB  |  73 lines
  1. .key file/a,cmd,desc
  2. .def desc="t:file_id.diz"
  3. .bra {
  4. .ket }
  5.  
  6. if {cmd} eq "read"
  7.  failat 21
  8.  set note `list "{file}" lformat "%c"`
  9.  get >nil: note
  10.  
  11.  if not warn
  12.   get >T:file_id_diz.tmp note
  13.   rx "open(n,'T:file_id_diz.tmp');string=readln(n);close(n);string=STRIP(string);s=string;m=44;b=1;IF length(s)>m THEN DO n=1 by 1 for words(s);IF wordindex(s,n)+wordlength(s,n)-b>=m THEN DO;IF n=1 THEN leave;b=wordindex(s,n-1);s=insert('0a'x,s,b-1);END;END;open(n,'{DESC}','w');writeln(n,s);close(n)"
  14.   delete T:file_id_diz.tmp QUIET
  15.   unset note
  16.   skip end
  17.  endif
  18.  
  19.  lzx x -m -X0 -a0 -- "{file}" file_id.diz t: >nil:
  20.  
  21.  if exists "{desc}"
  22.   skip end
  23.  else
  24.   set aminetfile "`list "{file}" LFORMAT %f%m`.readme"
  25.   if not exists "$aminetfile"
  26.    set aminetfile "`list "{file}" LFORMAT %m`.readme"
  27.     lzx x -m -X0 -a0 -- "{file}" #?$aminetfile t: >nil:
  28.    set aminetfile "t:"$aminetfile
  29.   endif
  30.   if exists "$aminetfile"
  31.    execute env:viewdiz/modules/readme "$aminetfile" CMD=read DESC="{desc}"
  32.    unset aminetfile
  33.   endif
  34.  endif
  35.  skip end
  36. endif
  37.  
  38. if {cmd} eq "write"
  39.  failat 21
  40.  set note `list "{file}" lformat "%c"`
  41.  lzx d -q -X0 -- "{file}" file_id.diz
  42.  lzx a -q -X0 -- "{file}" "{desc}"
  43.  
  44.  get >nil: note
  45.  if not warn
  46.   filenote >nil: "{file}" "$note"
  47.   unset note
  48.  endif
  49. endif
  50.  
  51. if {cmd} eq "delete"
  52.  failat 21
  53.  set note `list "{file}" lformat "%c"`
  54.  lzx d -q -X0 -- "{file}" file_id.diz >nil:
  55.  get >nil: note
  56.  if not warn
  57.   filenote >nil: "{file}" "$note"
  58.   unset note
  59.  endif
  60. endif
  61.  
  62. if {cmd} eq "execute"
  63.  execute env:viewdiz/modules/.getdrawer
  64.  lzx x -a -x -m -- "{file}" "$dest" >con:
  65. endif
  66.  
  67. if {cmd} eq "info"
  68.  setenv viewdiz/.minf "*"{file}*"" rwxd 6 _UnLzx (#?.lzx) Lzx-archive
  69. endif
  70.  
  71. lab end
  72. ;$VER: ViewDIZ-LZX.module 1.3 (1.9.98) Mikael Lund & Stefano Pucino
  73.